Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Модулі в базах даних.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Системи автоматизованого проектуваня

Інформація про роботу

Рік:
2008
Тип роботи:
Лабораторна робота
Предмет:
Організація баз даних і знань
Група:
КН-3

Частина тексту файла

Міністерство освіти і науки України Національний університет «Львівська політехніка» Кафедра САПР ЗВІТ про виконання лабораторної роботи №10 на тему: «Модулі в базах даних» з курсу: «Організація баз даних і знань» Виконав: ст. гр. КН-3 Львів 2008 Тема роботи Модулі в базах даних. Мета роботи Навчитися розробляти та використовувати модулі в базах даних. Лабораторне завдання Створити 3 модулі для бази даних «Школа», а саме: Модуль для вибірки за введеним прізвищем учителя інформації про клас, класним керівником якого він є (у режимі форми). Модуль для виведення таблиці «Працівники» у режимі читання. Модуль, який організовує вивід інформації про працівників у формі жовтим шрифтом по пурпуровому фоні, якщо стаж його роботи більше 15 років і чорним шрифтом по жовтому фоні у іншому випадку. В заголовку форми має відображатися поточна дата і час. Короткі теоретичні відомості Хід роботи 1) лістінг модуля 1 (модуль для вибірки за введеним прізвищем учителя інформації про клас, класним керівником якого він є (у режимі форми)): Option Compare Database Public Function Poshuk() Dim strCriteria As String strCriteria = "Прізвище = Forms!ІнформаціяПроПрацівників.form!Прізвище" DoCmd.OpenForm "КласніКерівники", aсNormal, , strCriteria Exit_Poshuk: Exit Function End Function 2) лістінг модуля 2 (Модуль для виведення таблиці «Працівники»у режимі читання). Option Compare Database Public Function VidkrytiaTablyci() DoCmd.OpenTable "Працівники", acViewNormal, acReadOnly End Function 3) лістінг модуля 3 (Модуль, який організовує вивід інформації про працівників у формі жовтим шрифтом по пурпуровому фоні, якщо стаж його роботи більше 15 років і чорним шрифтом по жовтому фоні у іншому випадку. В заголовку форми має відображатися поточна дата і час). Option Compare Database Option Explicit Private Sub Form_Current() Me.Caption = Format(Now, "dd.mm.yy hh:nn") If Стаж > 15 Then Me!Прізвище.ForeColor = 65535 Me!Прізвище.BackColor = 900 Me!Імя.ForeColor = 65535 Me!Імя.BackColor = 900 Me!ПоБатькові.ForeColor = 65535 Me!ПоБатькові.BackColor = 900 Me!КодПрацівника.ForeColor = 65535 Me!КодПрацівника.BackColor = 900 Me!КодПосади.ForeColor = 65535 Me!КодПосади.BackColor = 900 Me!КодПредмета.ForeColor = 65535 Me!КодПредмета.BackColor = 900 Me!Стаж.ForeColor = 65535 Me!Стаж.BackColor = 900 Me!КількістьГодин.ForeColor = 65535 Me!КількістьГодин.BackColor = 900 Else Me!Прізвище.ForeColor = 0 Me!Прізвище.BackColor = 65535 Me!Імя.ForeColor = 0 Me!Імя.BackColor = 65535 Me!ПоБатькові.ForeColor = 0 Me!ПоБатькові.BackColor = 65535 Me!КодПрацівника.ForeColor = 0 Me!КодПрацівника.BackColor = 65535 Me!КодПосади.ForeColor = 0 Me!КодПосади.BackColor = 65535 Me!КодПредмета.ForeColor = 0 Me!КодПредмета.BackColor = 65535 Me!Стаж.ForeColor = 0 Me!Стаж.BackColor = 65535 Me!КількістьГодин.ForeColor = 0 Me!КількістьГодин.BackColor = 65535 End If End Sub Результати виконання модулів 1)   2)  3)   Висновки На цій лабораторній роботі я навчився створювати та використовувати модулі у базах даних.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини